home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Nordlicht Spiele
/
Nordlicht Spiele 27-07 (19xx)(Nordlicht)(DE)(PD).zip
/
Nordlicht Spiele 27-07 (19xx)(Nordlicht)(DE)(PD).adf
/
fight dojo 3.AMOS
/
fight dojo 3.amosSourceCode
Wrap
AMOS Source Code
|
1978-01-25
|
7KB
|
147 lines
Erase 1 : Erase 2 : Erase 3 : Erase 4 : Erase 5 : Erase 6 : Erase 7 : Erase 8
Load "AMOS:music.abk" : Mvolume 34 : Music 1
Load "AMOS:dodge.abk" : Unpack 6 To 0 : Erase 6
Load "AMOS:dojo sprites.abk"
Curs Off : Hide
Double Buffer
P1SCORE=0 : Locate 0,0 : Print P1SCORE
P2SCORE=0 : Locate 36,0 : Print P2SCORE
Channel 1 To Bob 1
Bob 1,0,0,1
X=25 : Y=130
M$=" Let X=25 ; Let Y=130 ; Jump Begin ;"
M$=M$+" Begin: If X<45 Jump X ; Jump Movement ;"
M$=M$+" Movement: If J1=17 Jump Punch ;" : Bob Clear
M$=M$+" If J1=24 Jump Kick ;" : Bob Clear
M$=M$+" If J1=8 Jump Right ;" : Bob Clear
M$=M$+" If J1=4 Jump Left ;" : Bob Clear
M$=M$+" If J1=18 Jump Down ;" : Bob Clear
M$=M$+" If J1=25 Junp Fly ;" : Bob Clear
M$=M$+" If J1=2 Jump A ;" : Bob Clear
M$=M$+" If J1=1 Jump C ;" : Bob Clear
M$=M$+" Jump Begin ;"
M$=M$+" Punch:Anim 1,(2,10) ; Move 0,0,5 ; Anim 1,(1,10) ; Move 0,0,5 ; Jump Stand ;"
M$=M$+" Kick: Anim 1,(3,10) ; Move 0,0,5 ; Anim 1,(4,10) ; Move 0,0,5 ; Anim 1,(3,10) ; Move 0,0,5 ; Anim 1,(1,10) ; Move 0,0,15 ; Jump Stand ;"
M$=M$+" Fly: Anim 1,(14,10) ; Move 25,-25,25 ; Anim 1,(15,10) ; Move 25,25,25 ; Anim 0,(1,10) ; Move 0,0,15 ; Jump Stand ;"
M$=M$+" A: Anim 0,(12,10) ; Move 0,0,25 ; Jump Stand ;"
M$=M$+" Right:Anim 0,(5,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(6,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(7,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Jump O ;"
M$=M$+" O: Anim 0,(8,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(9,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(10,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(11,10) ; Move 5,0,5 ; Jump Stand ;"
M$=M$+" Left: Anim 0,(5,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(6,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(7,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Jump V ;"
M$=M$+" V: Anim 0,(8,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(9,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(10,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(11,10) ; Move -5,0,5 ; Jump Stand ;"
M$=M$+" Down: Anim 1,(12,10) ; Move 0,0,5 ; Anim 1,(13,10) ; Move 0,0,5 ; Jump Stand ;"
M$=M$+" C: Anim 0,(14,10) ; Move 0,-25,25 ; Move 0,25,25 ; Jump Stand ;"
M$=M$+" Stand:Anim 0,(1,7) ; Jump Begin ;"
M$=M$+" X: Let X=45 ; Jump Begin ;"
Amal 1,M$
Amal On 1
'
Channel 2 To Bob 2
Bob 2,0,0,19
BX=215 : BY=130
BM$="Let X=215 ; Let Y=130 ; Jump Begin ;"
BM$=BM$+" Begin: If X>200 Jump Y ; Jump Movement ;"
BM$=BM$+" Movement: If J0=17 Jump Punch ;" : Bob Clear
BM$=BM$+" If J0=20 Jump Kick ;" : Bob Clear
BM$=BM$+" If J0=8 Jump Right ;" : Bob Clear
BM$=BM$+" If J0=4 Jump Left ;" : Bob Clear
BM$=BM$+" If J0=18 Jump Down ;" : Bob Clear
BM$=BM$+" If J0=21 Junp Fly ;" : Bob Clear
BM$=BM$+" If J0=2 Jump A ;" : Bob Clear
BM$=BM$+" If J0=1 Jump C ;" : Bob Clear
BM$=BM$+" Jump Begin ;"
BM$=BM$+" Punch:Anim 1,(2,10) ; Move 0,0,5 ; Anim 1,(1,10) ; Move 0,0,5 ; Jump Stand ;"
BM$=BM$+" Kick: Anim 1,(21,10) ; Move 0,0,5 ; Anim 1,(22,10) ; Move 0,0,5 ; Anim 1,(21,10) ; Move 0,0,5 ; Anim 1,(19,10) ; Move 0,0,5 ; Jump Stand ;"
BM$=BM$+" Fly: Anim 1,(32,10) ; Move -25,-25,25 ; Anim 1,(33,10) ; Move -25,25,25 ; Anim 0,(19,10) ; Move 0,0,15 ; Jump Stand ;"
BM$=BM$+" A: Anim 0,(30,10) ; Move 0,0,25 ; Jump Stand ;"
BM$=BM$+" Right:Anim 0,(23,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(24,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(25,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Jump O ;"
BM$=BM$+" O: Anim 0,(26,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(27,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(28,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(29,10) ; Move 5,0,5 ; Jump Stand ;"
BM$=BM$+" Left: Anim 0,(23,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(24,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(25,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Jump V ;"
BM$=BM$+" V: Anim 0,(26,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(27,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(28,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(29,10) ; Move -5,0,5 ; Jump Stand ;"
BM$=BM$+" Down: Anim 1,(30,10) ; Move 0,0,5 ; Anim 1,(31,10) ; Move 0,0,5 ; Jump Stand ;"
BM$=BM$+" C: Anim 0,(32,10) ; Move 0,-25,25 ; Move 0,25,25 ; Jump Stand ;"
BM$=BM$+" Stand:Anim 0,(19,7) ; Jump Begin ;"
BM$=BM$+" Y: Let X=200 ; Jump Begin ;"
Amal 2,BM$
Amal On 2
Do
Channel 3 To Bob 3
Bob 3,X Bob(2)+5,Y Bob(2),35
Amal 3,"Anim 0,(17,5)(18,5)"
If Bob Col(1) and 4=I Bob(1)
Amal On 3 : Wait 10 : Amal On 2 : Amal Off 3 : Bob Off 3 : Add P1SCORE,7 : Locate 0,0 : Print P1SCORE
End If
If Bob Col(1) and 15=I Bob(1)
Amal On 3 : Wait 10 : Amal On 2 : Amal Off 3 : Bob Off 3 : Add P1SCORE,7 : Locate 0,0 : Print P1SCORE
End If
If Bob Col(1) and 2=I Bob(1)
Amal On 3 : Wait 10 : Amal On 2 : Amal Off 3 : Bob Off 3 : Add P1SCORE,7 : Locate 0,0 : Print P1SCORE
End If
If Bob Col(1) and 13=I Bob(1)
Amal On 3 : Wait 10 : Amal On 2 : Amal Off 3 : Bob Off 3 : Add P1SCORE,7 : Locate 0,0 : Print P1SCORE
End If
Channel 4 To Bob 4
Bob 4,X Bob(1)+5,Y Bob(1),35
Amal 4,"Anim 0,(17,5)(18,5)"
If Bob Col(2) and 22=I Bob(2)
Amal On 4 : Wait 10 : Amal On 1 : Amal Off 4 : Bob Off 4 : Add P2SCORE,7 : Locate 36,0 : Print P2SCORE
End If
If Bob Col(2) and 33=I Bob(2)
Amal On 4 : Wait 10 : Amal On 1 : Amal Off 4 : Bob Off 4 : Add P2SCORE,7 : Locate 36,0 : Print P2SCORE
End If
If Bob Col(2) and 20=I Bob(2)
Amal On 4 : Wait 10 : Amal On 1 : Amal Off 4 : Bob Off 4 : Add P2SCORE,7 : Locate 36,0 : Print P2SCORE
End If
If Bob Col(2) and 31=I Bob(2)
Amal On 4 : Wait 10 : Amal On 1 : Amal Off 4 : Bob Off 4 : Add P2SCORE,7 : Locate 36,0 : Print P2SCORE
End If
Amal 5,"Anim 0,(16,5)"
Amal 6,"Anim 0,(34,5)"
If P1SCORE>100
Amal On 3
Locate 5,2 : Paper 1 : Print "PLAYER 1 IS THE VICTOR!!!!"
Amal Freeze 1 : Amal Freeze 2
Channel 5 To Bob 1
Amal On 5
If Fire(1)
Bob Off
Load "AMOS:dojo title.abk" : Unpack 6 To 0 : Erase 6
Repeat : Until Fire(1)
Load "AMOS:dodge.abk" : Unpack 6 To 0 : Erase 6
Double Buffer
P1SCORE=0 : Locate 0,0 : Print P1SCORE
P2SCORE=0 : Locate 36,0 : Print P1SCORE
Channel 1 To Bob 1
Bob 1,0,0,1
Amal 1,M$
Amal On 1
Channel 2 To Bob 2
Bob 2,0,0,19
Amal 2,BM$
Amal On 2
End If
End If
If P2SCORE>100
Amal On 4
Locate 5,2 : Paper 1 : Print "PLAYER 2 IS THE VICTOR!!!!"
Amal Freeze 1 : Amal Freeze 2
Channel 6 To Bob 2
Amal On 6
If Fire(0)
Bob Off
Load "AMOS:dojo title.abk" : Unpack 6 To 0 : Erase 6
Repeat : Until Fire(1)
Load "AMOS:dodge.abk" : Unpack 6 To 0 : Erase 6
Double Buffer
P1SCORE=0 : Locate 0,0 : Print P1SCORE
P2SCORE=0 : Locate 36,0 : Print P1SCORE
Channel 1 To Bob 1
Bob 1,0,0,1
Amal 1,M$
Amal On 1
Channel 2 To Bob 2
Bob 2,0,0,19
Amal 2,BM$
Amal On 2
End If
End If
Loop